home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / src / CdBS_KQSrc0_4.lha / KaliosisQuantrum / MORB / Test.s < prev    next >
Text File  |  1998-01-04  |  16KB  |  832 lines
  1. *
  2. * CdBSian Obviously Universal & Interactive Nonsense (COUIN)
  3. * (Absurdité CdBSienne Manifestement Universelle et Interactive)
  4. * ©1997-1998, CdBS Software (MORB)
  5. * Test code for debugging purpose
  6. *
  7.  
  8. ;fs "ConfirmQuit"
  9. ConfirmQuit:
  10.      lea       cqtitle(pc),a0
  11.      lea       cqbody(pc),a1
  12.      lea       cqbut(pc),a2
  13.      lea       cqhook,a3
  14.      sub.l     a4,a4
  15.      bra       _Request
  16. cqhook:
  17.      tst.b     d0
  18.      bne       _Quit
  19.      rts
  20.  
  21. cqtitle:
  22.      dc.b      "COUIN's request",0
  23. cqbody:
  24.      dc.b      "Are you sure you want to quit ?",0
  25. cqbut:
  26.      dc.b      "OK|Cancel",0
  27.      even
  28. ;fe
  29.  
  30. ;fs "_About"
  31. _About:
  32.      lea       abtitle(pc),a0
  33.      lea       abbody(pc),a1
  34.      lea       abbut(pc),a2
  35.      lea       abhook,a3
  36.      sub.l     a4,a4
  37.      bra       _Request
  38. abhook:
  39.      tst.b     d0
  40.      bne.s     _AboutCouin
  41.      rts
  42. abtitle:
  43.      dc.b      "About Kaliosis Quantrum",0
  44. abbody:
  45.      dc.b      "Kaliosis Quantrum v",VERSION+"0",".",REVISION+"0"," ("
  46.      DATE
  47.      dc.b      ")",$a
  48.      dc.b      "©1997-1998, CdBS Software",$a
  49.      dc.b      "http://www.asi.fr/~tartavel/CdBS/Home.html",$a
  50.      dc.b      "e-mail : morb@nef.surle.net or toxn@toxiczone.surle.net",$a,$a
  51.      dc.b      "Scenario & Design : Sylve & Toxico Nimbus",$a,$a
  52.      dc.b      "Graphics : Sylve",$a,$a
  53.      dc.b      "COUIN engine Code & Design : MORB",$a
  54.      dc.b      "Additional code : Troll",$a,$a
  55.      dc.b      "Scenaric Code & Map Design : Toxico Nimbus",$a,$a
  56.      dc.b      "Greetings to (in no particular order) :",$a,$a
  57.      dc.b      "Trollix (Menhirs rulez *87),",$a
  58.      dc.b      "Exxos, Kaneda, BestONE, Sarts,",$a
  59.      dc.b      "Les gens de chez JANAL (international)",$a
  60.      dc.b      "Les lobotomisés de chez Uto-Pic (FLYx, Samyl, & Marcel)",$a
  61.      dc.b      "ßouß/Popsy Team, ZIG, The Coca Cola Company,",$a
  62.      dc.b      "#AmyCoders, #Artbas, #AmigaRulezFr,",$a
  63.      dc.b      "Georges (Avec un S, il est plusieurs là-dedans)",$a
  64.      dc.b      "Pascal Marcelin, Christian, Daniel, L0ki, TH2A, Mohic,",$a
  65.      dc.b      "Io, Gogo, DJThunder, Maui, Bins, MoonBeam, Gérard 'Shaman' Cornu,",$a
  66.      dc.b      "Rafo, Raphael Guénot, et tout le monde surle.net...",0
  67. abbut:
  68.      dc.b      "About COUIN|Resume",0
  69.      even
  70. ;fe
  71. ;fs "_AboutCouin"
  72. _AboutCouin:
  73.      lea       abctitle(pc),a0
  74.      lea       abcbody(pc),a1
  75.      lea       abcbut(pc),a2
  76.      sub.l     a3,a3
  77.      sub.l     a4,a4
  78.      bra       _Request
  79.  
  80. abctitle:
  81.      dc.b      "About COUIN",0
  82. abcbody:
  83.      dc.b      "CdBSian Obviously Universal & Interactive Nonsense (COUIN)",$a
  84.      dc.b      "(Absurdité CdBSienne Manifestement Universelle et Interactive)",$a,$a
  85.      dc.b      "©1997-1998, CdBS Software",$a,$a
  86.      dc.b      "Prepre beta developpement version",0
  87. abcbut:
  88.      dc.b      "OK",0
  89.      even
  90. ;fe
  91.  
  92. ;fs "_NYI"
  93. _NYI:
  94.      lea       NYITitle,a0
  95.      lea       NYIBody,a1
  96.      lea       NYIBut,a2
  97.      sub.l     a3,a3
  98.      sub.l     a4,a4
  99.      bra       _Request
  100.  
  101. NYITitle:
  102.      dc.b      "You just clicked on the bad button",0
  103. NYIBody:
  104.      dc.b      "Sorry, this function is not yet implemented.",$a,$a
  105.      dc.b      "I remember you that it is a work in progress",$a
  106.      dc.b      "thing, as written in the 'About' section.",$a,$a
  107.      dc.b      "Don't cry anymore, COUIN will be completed one day.",$a,$a
  108.      dc.b      "So stop making me shit for a small useless function that doesn't",$a
  109.      dc.b      "work for now. It's incredible, you are never happy. Grûnt.",0
  110. NYIBut:
  111.      dc.b      "Yes, I understand, please forgive me, you Great Coder.",0
  112.      even
  113. ;fe
  114.  
  115. ;fs "_GuiTest"
  116. _GuiTest:
  117.      move.l    _CurrentGui,tgog
  118.  
  119.      lea       _ggggTest(pc),a0
  120.      bra       _ChangeGui
  121.  
  122. tgog:
  123.      ds.l      1
  124. tgouste:
  125.      move.l    tgog,a0
  126.      bra       _ChangeGui
  127.  
  128. _ggggTest:
  129.      GENTRY    _VGroup,0,0
  130.  
  131.      GENTRY    _HGroup,0,0
  132.      GENTRY    _SmallButton,"X",tgouste
  133.      GENTRY    _SmallButton,"I",_Iconify
  134.      GENTRY    _DragBar,tb1,0
  135.      GEND
  136.  
  137.      GENTRY    _HGroup,0,0
  138.      GENTRY    _ListView,tstlst,0,0,0,tl2
  139.      GENTRY    _ListView,tstlst,0,0,0,tl8
  140.      GENTRY    _ListView,tstlst,0,0,0,tlA
  141.      GEND
  142.  
  143.      GENTRY    _HGroup,0,0
  144.      GENTRY    _Button,tb2,0
  145.      GENTRY    _Button,tb3,0
  146.      GENTRY    _Button,tb4,0
  147.      GENTRY    _Button,tb5,0
  148.      GENTRY    _Button,tb6,0
  149.      GENTRY    _Button,tb7,0
  150.      GEND
  151.  
  152.      ;GENTRY    _Text,grotext,0,0,gagu
  153.  
  154.      GENTRY    _HGroup,0,0
  155.      GENTRY    _HScroller,0,0,0,20,5
  156.      GENTRY    _Button,tb8,0
  157.      GENTRY    _Button,oomtxt,_OutOfMemory
  158.      GEND
  159.  
  160.      GENTRY    _HProp,0,0,0,16,1
  161.  
  162.      ;GENTRY    _Empty,0,0
  163.  
  164.      GENTRY    _HGroup,0,0
  165.      GENTRY    _Button,tb2,0
  166.      GENTRY    _Button,tb3,0
  167.      GENTRY    _Button,tb5,0
  168.      GENTRY    _Button,tb7,0
  169.      GEND             
  170.  
  171.      GEND
  172.  
  173. tstlst:
  174.      dc.l      tl1
  175. tltruc:
  176.      dc.l      0
  177.      dc.l      tlB
  178.  
  179. tl1:
  180.      dc.l      tl2,tstlst,tb1,1
  181. tl2:
  182.      dc.l      tl3,tl1,tb2,1
  183. tl3:
  184.      dc.l      tl4,tl2,tb3,2
  185. tl4:
  186.      dc.l      tl5,tl3,tb4,2
  187. tl5:
  188.      dc.l      tl6,tl4,tb5,1
  189. tl6:
  190.      dc.l      tl7,tl5,tb6,1
  191. tl7:
  192.      dc.l      tl8,tl6,tb7,2
  193. tl8:
  194.      dc.l      tl9,tl7,tb8,2
  195. tl9:
  196.      dc.l      tlA,tl8,tb9,2
  197. tlA:
  198.      dc.l      tlB,tl9,tbA,1
  199. tlB:
  200.      dc.l      tltruc,tlA,tbB,1
  201.  
  202. grotext:
  203.      dc.b      "Ceci n'est pas un texte monoligne  :^)",$a
  204.      dc.b      "La preuve",$a,$a
  205.      dc.b      "Il y en a plusieurs",$a
  206.      dc.b      "Et il y a même des %lx caractères %ld",$a
  207.      dc.b      "de formatage %ld.",0
  208.      even
  209. gagu:
  210.      dc.l      $deadbeef,123,45
  211. tb1:
  212.      dc.b      "COUIN's Gui de néssai. Klang.",0
  213. tb2:
  214.      dc.b      "Couin",0
  215. tb3:
  216.      dc.b      "Glonk glou",0
  217. tb4:
  218.      dc.b      "Paf",0
  219. tb5:
  220.      dc.b      "Schglubulu",0
  221. tb6:
  222.      dc.b      "Ga",0
  223. tb7:
  224.      dc.b      "Poupouf",0
  225. tb8:
  226.      dc.b      "Beuark.",0
  227. oomtxt:
  228.      dc.b      "OOM Test",0
  229.  
  230. tb9:
  231.      dc.b      "Shnorfl.",0
  232. tbA:
  233.      dc.b      "Sgronk gnlionglub",0
  234. tbB:
  235.      dc.b      "Gluibnlionglsgonkrank. Si.",0
  236.      even
  237. ;fe
  238. ;fs "_NewGuiTest"
  239. ngtobj:
  240.      ds.l      1
  241.  
  242. _NewGuiTest:
  243.      lea       ntgui,a0
  244.      bra       _OpenGui
  245. ngtExit:
  246.      bra       _CloseGui
  247. ntgui:
  248.      dc.l      0
  249.  
  250.      GUI
  251.       VGROUP
  252.        HGROUP
  253.         SMALLBTN  "X",ngtExit,0
  254.         SMALLBTN  "I",_Iconify,0
  255.         DRAGBAR   ngtt
  256.        ENDOBJ
  257.        HGROUP
  258.         VGROUP
  259.          HGROUP
  260.           LISTVIEW  tstlst,tl3,0,0,0,1000
  261.           VKNOB
  262.           LISTVIEW  tstlst,0,0,0,0,1000
  263.           VKNOB
  264.           LISTVIEW  tstlst,0,0,0,0,1000
  265.          ENDOBJ
  266.          HKNOB
  267.          HGROUP
  268.           LISTVIEW  tstlst,tl3,0,0,0,1000
  269.           VKNOB
  270.           LISTVIEW  tstlst,0,0,0,0,1000
  271.          ENDOBJ
  272.         ENDOBJ
  273.         VKNOB
  274.         VGROUP
  275.          BUTTON   tb2,0,0
  276.          BUTTON   tb3,0,0
  277.          BUTTON   tb4,0,0
  278.          LISTVIEW tstlst,0,0,0,0,1000
  279.          BUTTON   tb5,0,0
  280.          BUTTON   tb6,0,0
  281.          BUTTON   tb7,0,0
  282.         ENDOBJ
  283.         VKNOB
  284.         VGROUP
  285.          LISTVIEW  tstlst,0,0,0,0,1000
  286.          HKNOB
  287.          LISTVIEW  tstlst,0,0,0,0,1000
  288.         ENDOBJ
  289.        ENDOBJ
  290.        HGROUP
  291.         HSCROLLR  1,17,1,0,0
  292.         VKNOB
  293.         HPROP     1,17,1,0,0
  294.        ENDOBJ
  295.        HGROUP
  296.         HSCROLLR  0,20,5,0,0
  297.         VKNOB
  298.         BUTTON    tb8,_GuiTest,0
  299.         VKNOB
  300.         BUTTON    oomtxt,_OutOfMemory,0
  301.        ENDOBJ
  302.       ENDOBJ
  303.      ENDOBJ
  304.  
  305. ngtt:
  306.      dc.b      "New horrible gui test",0
  307.      even
  308. ;fe
  309.  
  310. ;fs "_ReqTest"
  311. _ReqTest:
  312.      lea       rttitle,a0
  313.      lea       rtbody,a1
  314.      lea       rtbut,a2
  315.      sub.l     a3,a3
  316.      sub.l     a4,a4
  317.      bra.s     _Request
  318.  
  319. rttitle:
  320.      dc.b      "COUIN's Requester de essai (sans vouloir me montrer pesant)",0
  321. rtbody:
  322.      dc.b      "Ceci est un requester COUIN.",$a
  323.      dc.b      "Un requester d'essai.",$a
  324.      dc.b      "Avec un texte complètement inepte.",$a
  325.      dc.b      "Et un saut de ligne,",$a
  326.      dc.b      "pour faire style.",$a,$a
  327.      dc.b      "Je pourrais encore raconter des",$a
  328.      dc.b      "conneries longtemps, comme ça.",$a,$a
  329.      dc.b      "Et puis il y a une rangée de boutons",$a
  330.      dc.b      "en bas. Voilà. Paf.",0
  331.  
  332. rtbut:
  333.      dc.b      "Oui|Non|Probablement|Sans opinion|Peut-être|Je sais pas|Quoique",0
  334.      even
  335. ;fe
  336. ;fs "_FReqTest"
  337. _FReqTest:
  338.      lea       TstFReq,a2
  339.      sub.l     a1,a1
  340.      lea       FRTHook,a1
  341.      bra.s     _FileRequest
  342.  
  343. FRTHook:
  344.      tst.l     d0
  345.      beq.s     .OuinX
  346.  
  347.      lea       FRRTitle,a0
  348.      lea       FRRViviBody,a1
  349.      lea       FRRBut,a2
  350.      sub.l     a3,a3
  351.      move.l    #TFRPath,-(a7)
  352.      move.l    a7,a4
  353.      bsr       _Request
  354.      addq.l    #4,a7
  355.      rts
  356.  
  357. .OuinX:
  358.      lea       FRRTitle,a0
  359.      lea       FRROuinxBody,a1
  360.      lea       FRRBut,a2
  361.      sub.l     a3,a3
  362.      sub.l     a4,a4
  363.      bra       _Request
  364.  
  365.  
  366. TstFReq:
  367.      dc.l      freqt
  368. TFRPath:
  369.      dc.b      "sys:",0
  370.      ds.b      1024
  371.  
  372. freqt:
  373.      dc.b      "COUIN's File requester",0
  374.  
  375. FRRTitle:
  376.      dc.b      "It was the file requester of COUIN",0
  377. FRRBut:
  378.      dc.b      "Gluuub.",0
  379. FRROuinxBody:
  380.      dc.b      "You d